home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 9 / Amoszine 9 (Disk 3 of 3).adf / Mals_Source_Code.lha / SPARKLING_CREDITS.amos / SPARKLING_CREDITS.amosSourceCode < prev    next >
AMOS Source Code  |  1980-01-17  |  3KB  |  152 lines
  1. '**************************************
  2. '
  3. '           GLINT PROCEDURE
  4. '           ---------------
  5. '
  6. 'HERE IS AN OLD PROCEDURE OF MINE, IT
  7. 'PUTS COOL SHINEY STARS ONTO YOU SCREEN
  8. 'TEXT, OLD!, BUT STILL LOOKS COOOL!! 
  9. '
  10. '**************************************
  11. '
  12. Cls 0
  13. Screen Open 0,320,256,8,Lowres
  14. Curs Off : Cls 0 : Flash Off : Hide On 
  15.  
  16. Get Sprite Palette 
  17.  
  18. MAIN_TITLE
  19.  
  20. Procedure MAIN_TITLE
  21.    
  22.    '
  23.    Palette ,$0,$0,$0,$0,$0,$0,$0,
  24.    '
  25.    TITLE_TEXT["CRITTERS THE GAME",110]
  26.    '
  27.    CREDITS_FLAIR[4000]
  28.    '
  29.    TITLE_TEXT["GAME DESIGN",100]
  30.    TITLE_TEXT["BY M.LAVERY",120]
  31.    '
  32.    CREDITS_FLAIR[2000]
  33.    '
  34.    TITLE_TEXT["GRAFIX",100]
  35.    TITLE_TEXT["BY M.LAVERY",120]
  36.    '
  37.    CREDITS_FLAIR[4000]
  38.    '
  39.    TITLE_TEXT["SOUND FX",100]
  40.    TITLE_TEXT["BY M.LAVERY",120]
  41.    '
  42.    CREDITS_FLAIR[4000]
  43.    '
  44.    '
  45.    TITLE_TEXT["INSTRUCTIONS",20]
  46.    TITLE_TEXT["COLLECT THE JEWELS",50]
  47.    TITLE_TEXT["ON EACH LEVEL",70]
  48.    TITLE_TEXT["TAKE THEM TO YOUR",90]
  49.    TITLE_TEXT["GIRL FRIEND.",110]
  50.    TITLE_TEXT["USE THE Z/X KEYS",140]
  51.    TITLE_TEXT["TO SELECT A MODE",160]
  52.    TITLE_TEXT["OF OBJECT USAGE.",180]
  53.    TITLE_TEXT["GOT THE IDEA?",220]
  54.    '
  55.    '
  56.    CREDITS_FLAIR[20000]
  57.    '
  58.    TITLE_TEXT["YOU HAVE TO BE IN",60]
  59.    TITLE_TEXT["THE RIGHT USAGE",80]
  60.    TITLE_TEXT["MODE TO OPERATE",100]
  61.    TITLE_TEXT["SHELTERS,BOMBS",120]
  62.    TITLE_TEXT["ETC ETC.....",140]
  63.    TITLE_TEXT["GOOD LUCK",180]
  64.    TITLE_TEXT["YOU'LL NEED IT!",200]
  65.    
  66.    '
  67.    CREDITS_FLAIR[20000]
  68.    '
  69.    TITLE_TEXT["LOADING MAIN",100]
  70.    TITLE_TEXT["GAME SECTION",120]
  71.    Wait 30
  72.    '
  73.    Fade 3,,$FFF,$ADF,$5BF,$8D,$5A,$36,$23
  74.    '
  75.    'Run "GAME"
  76.    '
  77.    
  78. End Proc
  79.  
  80. Procedure TITLE_TEXT[TEX$,Y]
  81.    POS=1
  82.    LE=Len(TEX$)
  83. L=LE*15
  84. X=Screen Width(0)/2.5-L/2
  85.  
  86.    '      
  87.    For MANY=1 To LE
  88.       I=Asc(Mid$(TEX$,POS,1))
  89.       IMAGE=I-31
  90.       Paste Bob X+POS*16,Y,IMAGE
  91.       Inc POS
  92.    Next MANY
  93.    '    
  94. End Proc
  95.  
  96. Procedure CREDITS_FLAIR[DELAY]
  97.    
  98.    '
  99.    Fade 2,,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF
  100.    '
  101.    Wait 20
  102.    '
  103.    
  104.    Fade 2,,$FFF,$ADF,$5BF,$8D,$5A,$36,$23
  105.    '
  106.    
  107.   For GAP=0 To DELAY
  108. GLINT
  109. Next GAP
  110.    '
  111.    Fade 2,,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF
  112.    '
  113.    Wait 20
  114.    Fade 2,,$0,$0,$0,$0,$0,$0,$0
  115.    '
  116. Bob Off 
  117.    Wait 50
  118.    '
  119.  
  120.    Cls 0
  121.    '
  122. End Proc
  123.  
  124. Procedure GLINT
  125.  
  126. X=Rnd(320) : Y=Rnd(256)
  127. If Point(X,Y)=2
  128. Channel 1 To Bob 1
  129. Bob 1,X,Y,60
  130. A$="Anim 1,(60,6)(61,6)(63,6)(64,10)(63,6)(62,6)(61,6)(60,6);"
  131. Amal 1,A$
  132. Amal On 1
  133. End If 
  134.  
  135. X=Rnd(320) : Y=Rnd(256)
  136. If Point(X,Y)=2
  137. Channel 2 To Bob 2
  138. Bob 2,X,Y,60
  139. A$="Anim 1,(60,6)(61,6)(63,6)(64,10)(63,6)(62,6)(61,6)(60,6);"
  140. Amal 2,A$
  141. Amal On 2
  142. End If 
  143.  
  144. X=Rnd(320) : Y=Rnd(256)
  145. If Point(X,Y)=2
  146. Channel 3 To Bob 3
  147. Bob 3,X,Y,60
  148. A$="Anim 1,(60,6)(61,6)(63,6)(64,10)(63,6)(62,6)(61,6)(60,6);"
  149. Amal 3,A$
  150. Amal On 3
  151. End If 
  152. End Proc